﻿''' <summary>
''' which property shall display as "title" of a content
''' </summary>
''' <remarks></remarks>
Public Class ReferenceText
    Inherits MysteryPropertyAttribute


    Public Overrides Sub setup()

    End Sub

    Public Function getReferenceText(content As IContent) As String
        Dim value As Object = Me.retrive()(content)
        If TypeOf (value) Is ContentPropertyValue Then
            value = DirectCast(value, ContentPropertyValue).getValue
        End If
        If value Is Nothing Then Return String.Empty
        Return value
    End Function

End Class
